      * cobc -x principal.cbl  gestor_archivo.cbl -o subprogramas.exe
      ******************************************************************
       IDENTIFICATION DIVISION.
      ******************************************************************
       PROGRAM-ID. principal.

      ******************************************************************
       ENVIRONMENT DIVISION.
      ******************************************************************
      ******************************************************************
       DATA DIVISION.
      ******************************************************************
      *****************************************************
       WORKING-STORAGE SECTION.
      *****************************************************

       77 gestor_archivo PIC X(14) VALUE 'gestor_archivo'.
       01 operacion         PIC X(01).
       01 registro.
         03 COD-CLI         PIC 9(08).
         03 NOMBRE-CLI      PIC X(30).
         03 DIRECCION-CLI   PIC X(30).
         03 TEL-CLI         PIC X(15).
         03 FEC-NAC         PIC X(10).
         03 OCUPACION       PIC X(20).
       01 fs-clientes       PIC X(02).
	   01 cliente           PIC 9(08).
       01 fin               PIC X(01).
      ******************************************************************
       PROCEDURE DIVISION.
      ******************************************************************
       Begin.
         MOVE 'A' TO Operacion.
         CALL gestor_archivo USING operacion, registro, fs-clientes.
         DISPLAY "File Status Open".
         DISPLAY fs-clientes.

         MOVE 'N' to fin.
         PERFORM until fin='S'
          DISPLAY "-------------> Escritura <------------"
          INITIALIZE registro
          DISPLAY "COD-CLI: "
          ACCEPT cod-cli OF registro
          DISPLAY "NOMBRE-CLI: "
          ACCEPT nombre-cli OF registro
          DISPLAY "DIRECCION-CLI: "
          ACCEPT direccion-cli OF registro
          DISPLAY "TEL-CLI: "
          ACCEPT TEL-CLI OF registro
          DISPLAY "FEC-NAC: "
          ACCEPT FEC-NAC OF registro
          DISPLAY "OCUPACION: "
          ACCEPT OCUPACION OF registro
          MOVE 'W' TO Operacion
          CALL gestor_archivo
          USING operacion, registro, fs-clientes
          DISPLAY "File Status WRITE"
          DISPLAY fs-clientes
          DISPLAY '------------'
          DISPLAY "-------------> READ <------------"
          MOVE 'R' TO Operacion
          CALL gestor_archivo USING operacion, registro, fs-clientes
          DISPLAY '  Lectura:'
          DISPLAY Nombre-cli OF registro
          DISPLAY OCUPACION  OF registro
          DISPLAY '------------'
          DISPLAY "INGRESE 'S' para salir: "
          ACCEPT fin
         END-PERFORM.

		 MOVE 'N' to fin.
         PERFORM until fin='S' or fin='s'
          DISPLAY "--------> Buscar Cliente <----------"
		  DISPLAY "INGRESE 'S' para salir: "
          ACCEPT fin
		  IF fin not = 'S'
             INITIALIZE registro
             DISPLAY "COD-CLI: "
             ACCEPT cod-cli OF registro
		     MOVE cod-cli OF registro TO cliente
		     DISPLAY cliente 
             MOVE 'R' TO Operacion
             CALL gestor_archivo USING operacion, registro, fs-clientes
             DISPLAY '  Lectura:'
             DISPLAY Nombre-cli OF registro
             DISPLAY OCUPACION  OF registro
             DISPLAY '------------'	 
          END-IF
         END-PERFORM.
		 
         MOVE 'C' TO Operacion.
         CALL gestor_archivo USING operacion, registro, fs-clientes.
         DISPLAY "File Status Close".
         DISPLAY fs-clientes.
         STOP RUN.
